home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / ERRLEV2.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  314b  |  11 lines
  1. FUNCTION ErrorLevel% ()
  2.  
  3.    'Purpose : To check the error level of a program returning from shell
  4.    'Input   : none (well, helps if you did shell a program first)
  5.    'Return  : The errorlevel returned from the last shelled program
  6.  
  7.    DEF SEG = 0
  8.    ErrorLevel% = PEEK(&H4FE)
  9.    DEF SEG
  10. END FUNCTION
  11.